home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TwoRings.dxr / 00063_stock cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  863 b   |  31 lines
  1. global stock, waste, deals
  2.  
  3. on mouseDown me
  4.   global stock, waste, deals
  5.   if member(sprite(me.spriteNum).memberNum).name = "backofcard" then
  6.     sprite(30).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  7.     if sprite(30).visible = 0 then
  8.       sprite(30).visible = 1
  9.     end if
  10.     puppetSound(3, "deal1")
  11.     waste.addCard(new(script("card"), 30))
  12.     stock.cards.deleteAt(1)
  13.     if stock.cards.count = 0 then
  14.       if deals < 1 then
  15.         sprite(me.spriteNum).member = "replenish"
  16.       else
  17.         sprite(me.spriteNum).member = "stop"
  18.         checklose()
  19.       end if
  20.     end if
  21.   else
  22.     if member(sprite(me.spriteNum).memberNum).name = "replenish" then
  23.       replenish(waste.cards)
  24.       deals = deals + 1
  25.       sprite(me.spriteNum).member = "backofcard"
  26.       waste.cards.deleteAll()
  27.       sprite(30).member = "block"
  28.     end if
  29.   end if
  30. end
  31.